
<html>
<body >
<h1>Info</h1></br></br>
<%
Dim Conn, Rs, sql, ISBN
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={MySQL ODBC 5.1 Driver}; Server=localhost; Port=3306; Database=redes; UID=root; PWD="
ISBN = Trim(Request("ISBN"))

sql= "SELECT * FROM libros where ISBN='"&ISBN&"';"
Rs.Open sql, Conn

    Response.Write ("Titulo: "&Rs("Titulo")&"</br></br>")
    Response.Write ("Autor: "&Rs("Autor")&"</br></br>")
    Response.Write ("Editorial: "&Rs("Editorial")&"</br></br>")
    Response.Write ("Detalle: "&Rs("Detalle")&"</br></br>")
    Response.Write ("ISBN: "&Rs("ISBN")&"</br></br>")
    Response.Write ("Precio: "&Rs("Precio"))

Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>
</form>
</body>
</html> 



